home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 83 / 64er_Magazin_Sonderheft_83_19xx_Markt__Technik_de_Side_A.d64 / prg 2.bas (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  491b  |  19 lines
  1. 10 un=9
  2. 15 rem *geraeteadresse
  3. 20 open 15,un,15 : open 4,un,4,"#"
  4. 25 rem *befehlskanal und direktzugriffskanal oeffnen
  5. 30 for se=0 to 19
  6. 35 rem *sektoren 0 bis 19 beschreiben
  7. 40 print#15, "u1";4;0;79;se
  8. 45 rem *sektor einlesen
  9. 50 print#15, "b-p";4;0
  10. 55 rem *buffer-pointer auf byte 0 setzen
  11. 60 print#4, chr$(se)
  12. 65 rem *mit der nummer des sektors ueberschreiben
  13. 70 print#15, "u2";4;0;79;se
  14. 75 rem *sektor zurueckschreiben
  15. 80 next
  16. 85 rem *wiederholen
  17. 90 close 4 : close 15
  18. 95 rem *befehlskanal und direktzugriffs-datei  schliessen
  19.